home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1470 / busy.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-05-26  |  1.5 KB  |  50 lines
  1. VERSION 4.00
  2. Begin VB.Form frmBusy 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   675
  5.    ClientLeft      =   825
  6.    ClientTop       =   1575
  7.    ClientWidth     =   3270
  8.    ControlBox      =   0   'False
  9.    Height          =   1080
  10.    Icon            =   "Busy.frx":0000
  11.    Left            =   765
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    MousePointer    =   11  'Hourglass
  17.    ScaleHeight     =   675
  18.    ScaleWidth      =   3270
  19.    ShowInTaskbar   =   0   'False
  20.    Top             =   1230
  21.    Width           =   3390
  22.    Begin VB.Label Label1 
  23.       AutoSize        =   -1  'True
  24.       Caption         =   "Loading screen fonts..."
  25.       BeginProperty Font 
  26.          name            =   "MS Sans Serif"
  27.          charset         =   0
  28.          weight          =   700
  29.          size            =   12
  30.          underline       =   0   'False
  31.          italic          =   0   'False
  32.          strikethrough   =   0   'False
  33.       EndProperty
  34.       Height          =   300
  35.       Left            =   240
  36.       TabIndex        =   0
  37.       Top             =   180
  38.       Width           =   2775
  39.    End
  40. Attribute VB_Name = "frmBusy"
  41. Attribute VB_Creatable = False
  42. Attribute VB_Exposed = False
  43. Option Explicit
  44. Private Sub Form_Load()
  45.     Screen.MousePointer = vbHourglass
  46. End Sub
  47. Private Sub Form_Unload(Cancel As Integer)
  48.     Screen.MousePointer = vbDefault
  49. End Sub
  50.